function nesting in R using dplyr operator